home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS12.ADF / cr2ascii.msb (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-30  |  292b  |  16 lines

  1.  
  2. OPEN "r", #1, "ram:iffed", 1
  3. OPEN "o", #2, "ram:out"
  4.  
  5. FIELD #1, 1 AS a$
  6.  
  7.  10 GET #1
  8.   IF EOF(1) THEN CLOSE 2 : STOP
  9.   x = x+1
  10.   b$ = a$+"" : IF b$=CHR$(13) THEN b$ = CHR$(10) : x=0
  11.   PRINT #2, b$;
  12.   PRINT b$;
  13.   IF x > 75 AND b$=" " THEN PRINT #2, "" : PRINT : x=0
  14.   GOTO 10
  15.   
  16.